home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - ProDOS / PRO021.dsk / FINCALC.START.bas < prev    next >
BASIC Source File  |  2012-02-16  |  835b  |  18 lines
  1. 10  HOME : TEXT : NORMAL : PRINT  CHR$(4);"PR#3": GOTO 30
  2. 15  PRINT  CHR$(15); CHR$(27);
  3. 20  VTAB (VP): HTAB (SP): FOR Z = SP TO EP: PRINT "S";: NEXT 
  4. 25  PRINT  CHR$(14); CHR$(24);: RETURN 
  5. 30 VP = 5:SP = 16:EP = 65: GOSUB 15
  6. 35  VTAB 8: HTAB 37: PRINT "FINCALC"
  7. 40  VTAB 11: HTAB 28: PRINT "--- a Financial Calculator"
  8. 45  VTAB 14: HTAB 33: PRINT "by Darrell Smith"
  9. 50 VP = 20:SP = 16:EP = 65: GOSUB 15
  10. 55  VTAB 18: HTAB 25: PRINT "DOCUMENTATION ? (Y)es or (N)o"
  11. 60  GET A$: IF A$ = "Y"  THEN 90
  12. 65  IF A$ = "N"  THEN 80
  13. 70  IF A$ < >""  THEN  VTAB 18: CALL  -958
  14. 75  VTAB 19: HTAB 25: INVERSE : PRINT "Enter Y for Yes or N for No  ": NORMAL : GOTO 50
  15. 80  HOME : VTAB 11: HTAB 33: PRINT "LOADING FINCALC"
  16. 85  PRINT  CHR$(4);"RUN FINCALC": END 
  17. 90  HOME : VTAB 11: HTAB 33: PRINT "LOADING FINDOC"
  18. 95  PRINT  CHR$(4);"RUN FINDOC": END